unit ocrbygroup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  dxSkinsCore, dxSkinsDefaultPainters, cxStyles, dxSkinscxPCPainter,
  cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit, cxNavigator, DB,
  cxDBData, cxGridLevel, cxClasses, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, cxDBNavigator, StdCtrls, MemDS,
  DBAccess, Uni, cxBlobEdit, cxDBLookupComboBox, cxGridCardView,
  cxGridDBCardView, cxGridCustomLayoutView;

type
  TfrmGroups = class(TForm)
    grp1: TGroupBox;
    cxDBNavigator1: TcxDBNavigator;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    grp2: TGroupBox;
    cxGrid2Level1: TcxGridLevel;
    cxGrid2: TcxGrid;
    ds1: TDataSource;
    ds2: TDataSource;
    myqry1: TUniQuery;
    myqry2: TUniQuery;
    myqry1gid: TWideStringField;
    myqry1group_name: TWideStringField;
    myqry1timecreate: TWideStringField;
    myqry1front_binary: TBlobField;
    myqry1back_binary: TBlobField;
    industryclass: TUniQuery;
    level: TUniQuery;
    myqry1industryclass: TWideStringField;
    myqry1contactlevel: TWideStringField;
    industryclassindustryclassid: TIntegerField;
    industryclassindustryclass: TWideStringField;
    industryclasspresence: TIntegerField;
    industryclasspicklist_valueid: TIntegerField;
    levellevelid: TIntegerField;
    levellevel: TWideStringField;
    levelpresence: TIntegerField;
    levelpicklist_valueid: TIntegerField;
    cxGrid1DBTableView1gid: TcxGridDBColumn;
    cxGrid1DBTableView1timecreate: TcxGridDBColumn;
    cxGrid1DBTableView1group_name: TcxGridDBColumn;
    cxGrid1DBTableView1front_binary: TcxGridDBColumn;
    cxGrid1DBTableView1back_binary: TcxGridDBColumn;
    cxGrid1DBTableView1industryclass: TcxGridDBColumn;
    cxGrid1DBTableView1contactlevel: TcxGridDBColumn;
    ds3: TDataSource;
    ds4: TDataSource;
    myqry2contact_id: TWideStringField;
    myqry2gid: TWideStringField;
    myqry2group_id: TWideStringField;
    myqry2cardsource: TWideStringField;
    myqry2cardstate: TWideStringField;
    myqry2cloudcheck: TWideStringField;
    myqry2sync_cid: TWideStringField;
    myqry2timecreate: TWideStringField;
    myqry2username: TWideStringField;
    myqry2mobile: TWideStringField;
    myqry2tel: TWideStringField;
    myqry2fax: TWideStringField;
    myqry2email: TWideStringField;
    myqry2website: TWideStringField;
    myqry2qq: TWideStringField;
    myqry2country: TWideStringField;
    myqry2state: TWideStringField;
    myqry2city: TWideStringField;
    myqry2street1: TWideStringField;
    myqry2street2: TWideStringField;
    myqry2zip: TWideStringField;
    myqry2company: TWideStringField;
    myqry2department: TWideStringField;
    myqry2title: TWideStringField;
    myqry2jsonstr: TWideMemoField;
    myqry2ocrtext: TWideMemoField;
    myqry2jsonstrback: TWideMemoField;
    myqry2ocrtextback: TWideMemoField;
    myqry2front_binary: TBlobField;
    myqry2back_binary: TBlobField;
    myqry2samecardid: TWideStringField;
    cxGrid2DBCardView1: TcxGridDBCardView;
    cxGrid2DBCardView1contact_id: TcxGridDBCardViewRow;
    cxGrid2DBCardView1gid: TcxGridDBCardViewRow;
    cxGrid2DBCardView1group_id: TcxGridDBCardViewRow;
    cxGrid2DBCardView1cardsource: TcxGridDBCardViewRow;
    cxGrid2DBCardView1cardstate: TcxGridDBCardViewRow;
    cxGrid2DBCardView1cloudcheck: TcxGridDBCardViewRow;
    cxGrid2DBCardView1sync_cid: TcxGridDBCardViewRow;
    cxGrid2DBCardView1timecreate: TcxGridDBCardViewRow;
    cxGrid2DBCardView1username: TcxGridDBCardViewRow;
    cxGrid2DBCardView1mobile: TcxGridDBCardViewRow;
    cxGrid2DBCardView1tel: TcxGridDBCardViewRow;
    cxGrid2DBCardView1fax: TcxGridDBCardViewRow;
    cxGrid2DBCardView1email: TcxGridDBCardViewRow;
    cxGrid2DBCardView1website: TcxGridDBCardViewRow;
    cxGrid2DBCardView1qq: TcxGridDBCardViewRow;
    cxGrid2DBCardView1country: TcxGridDBCardViewRow;
    cxGrid2DBCardView1state: TcxGridDBCardViewRow;
    cxGrid2DBCardView1city: TcxGridDBCardViewRow;
    cxGrid2DBCardView1street1: TcxGridDBCardViewRow;
    cxGrid2DBCardView1street2: TcxGridDBCardViewRow;
    cxGrid2DBCardView1zip: TcxGridDBCardViewRow;
    cxGrid2DBCardView1company: TcxGridDBCardViewRow;
    cxGrid2DBCardView1department: TcxGridDBCardViewRow;
    cxGrid2DBCardView1title: TcxGridDBCardViewRow;
    cxGrid2DBCardView1jsonstr: TcxGridDBCardViewRow;
    cxGrid2DBCardView1ocrtext: TcxGridDBCardViewRow;
    cxGrid2DBCardView1jsonstrback: TcxGridDBCardViewRow;
    cxGrid2DBCardView1ocrtextback: TcxGridDBCardViewRow;
    cxGrid2DBCardView1front_binary: TcxGridDBCardViewRow;
    cxGrid2DBCardView1back_binary: TcxGridDBCardViewRow;
    cxGrid2DBCardView1samecardid: TcxGridDBCardViewRow;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGroups: TfrmGroups;

implementation
uses dm;
{$R *.dfm}

procedure TfrmGroups.FormCreate(Sender: TObject);
begin
  myqry1.Open;
  myqry2.Open;
  industryclass.Open;
  level.Open;
end;

end.
